home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / mint / netlib / lib / shutdown.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-12-27  |  572 b   |  39 lines
  1. /*
  2.  *    shutdown() emulation for MiNT-Net, (w) '93, kay roemer.
  3.  */
  4.  
  5. #include "socklib.h"
  6. #ifdef KERNEL
  7. #include "kerbind.h"
  8. #else
  9. #include <mintbind.h>
  10. #endif
  11. #include "sys/socket.h"
  12. #include "mintsock.h"
  13.  
  14. #ifndef KERNEL
  15. extern int errno;
  16. #endif
  17.  
  18. int
  19. shutdown (fd, how)
  20.     int fd, how;
  21. {
  22.     struct shutdown_cmd cmd;
  23.     int r;
  24.     
  25.     cmd.cmd = SHUTDOWN_CMD;
  26.     cmd.how = how;
  27.  
  28. #ifndef KERNEL
  29.     r = Fcntl (fd, (long)&cmd, SOCKETCALL);
  30.     if (r < 0) {
  31.         errno = -r;
  32.         return -1;
  33.     }
  34.     return 0;
  35. #else
  36.     return f_cntl (fd, (long)&cmd, SOCKETCALL);
  37. #endif
  38. }
  39.